home *** CD-ROM | disk | FTP | other *** search
/ Jurassic Jigsaws / JURASSIC.BIN / intro.dir / 00009_Script_movie script < prev    next >
Text File  |  1996-10-01  |  1KB  |  42 lines

  1. global filesep, gIntroFIleName
  2.  
  3.  
  4. on startmovie
  5.   if the machinetype = 256 then set filesep = "\"
  6.   else set filesep = ":"
  7.   when mousedown then  killsong
  8. end startmovie
  9.  
  10. on killsong
  11.   sound close 1
  12.   sound close 2
  13.   when mousedown then nothing
  14. end killsong
  15.  
  16.  
  17. on buttonscript mWhichSprite
  18.   if not the puppet of sprite mWhichSPrite then puppetsprite mWhichSprite, TRUE
  19.   put the membernum of sprite mWhichSPrite into tOrigMember
  20.   put the number of member (the name of member tOrigMember & "Down" ) into tDownMember
  21.   set the membernum of sprite mWhichSprite = member tDownMember
  22.   puppetsound member "click"
  23.   updatestage
  24.   repeat while the mousedown
  25.     put the mousecast into tRollMember
  26.     if tRollMember = tDownMember or tRollMember = tOrigMember then
  27.       set the membernum of sprite mWhichSPrite = tDownMember
  28.       updatestage
  29.     else
  30.       set the membernum of sprite mWhichSPrite = tOrigMember
  31.       updatestage
  32.     end if
  33.   end repeat
  34.   set the membernum of sprite mWhichSPrite = tOrigMember
  35.   updatestage
  36.   
  37. end buttonscript
  38.  
  39. on playsoundeffect whatfolder, whatsound
  40.   sound playfile 1, the pathname & whatfolder & filesep & whatsound
  41.   
  42. end playsoundeffect